home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aal.d64 / proc.print'using < prev    next >
Text File  |  2007-02-28  |  2KB  |  69 lines
  1. 0410 ╨╥╧├ PRINT'USING(FMT$,NUMBER) ├╠╧╙┼─
  2. 0420   ─╔═ NBR$ ╧╞ 20
  3. 0430   FLOAT:=╞┴╠╙┼
  4. 0440   ╔╞ FMT$(1)="$" ╘╚┼╬ FLOAT:=╘╥╒┼
  5. 0450   ╔╞ "." ╔╬ FMT$ ╘╚┼╬
  6. 0460     DECIMALS:=╠┼╬(FMT$)-("." ╔╬ FMT$)
  7. 0470     NUMBER:=NUMBER*(10^DECIMALS)
  8. 0480   ┼╠╙┼ 
  9. 0490     DECIMALS:=0
  10. 0500   ┼╬─╔╞ 
  11. 0510   NUMBER:=NUMBER+.5
  12. 0520   NUMBER:=╔╬╘(NUMBER)
  13. 0530   NBR$:=╙╘╥$(NUMBER)
  14. 0540   ╔╞ DECIMALS ╘╚┼╬
  15. 0550     ╔╞ NUMBER=0 ╘╚┼╬
  16. 0560       ╞╧╥ I:=1 ╘╧ DECIMALS ─╧
  17. 0570         NBR$:+"0"
  18. 0580       ┼╬─╞╧╥ I
  19. 0590     ┼╬─╔╞ 
  20. 0600     ╔╞ ╠┼╬(NBR$)<DECIMALS ╘╚┼╬
  21. 0610       TMP$:=""
  22. 0620       ╞╧╥ I:=1 ╘╧ DECIMALS-╠┼╬(NBR$) ─╧
  23. 0630         TMP$:+"0"
  24. 0640       ┼╬─╞╧╥ I
  25. 0650       TMP$:+NBR$
  26. 0660       NBR$:=TMP$
  27. 0670     ┼╬─╔╞ 
  28. 0680     POINT:=╠┼╬(NBR$)-DECIMALS
  29. 0690     TMP$:=NBR$(1:POINT)
  30. 0700     NBR$:=TMP$+"."+NBR$(POINT+1:╠┼╬(NBR$))
  31. 0710   ┼╬─╔╞ 
  32. 0720   LF:=╠┼╬(FMT$)
  33. 0730   LN:=╠┼╬(NBR$)
  34. 0740   C:=0
  35. 0750   ╞╧╥ I:=1 ╘╧ LF ─╧
  36. 0760     ╔╞ FMT$(I)="," ╘╚┼╬ C:+1
  37. 0770   ┼╬─╞╧╥ I
  38. 0780   ╔╞ LN>LF-C ╘╚┼╬
  39. 0790     ╨╥╔╬╘ FMT$,
  40. 0800   ┼╠╙┼ 
  41. 0810     J:=0
  42. 0820     C:=0
  43. 0830     S:=0
  44. 0840     ╔╞ ╬╧╘ (DECIMALS) ╘╚┼╬ S:=1
  45. 0850     ╞╧╥ I:=LN ╘╧ 1 ╙╘┼╨ -1 ─╧
  46. 0860       ╔╞ S ╘╚┼╬
  47. 0870         ╔╞ NBR$(I)<>"-" ╘╚┼╬ C:+1
  48. 0880         ╔╞ C=4 ╘╚┼╬
  49. 0890           FMT$(LF-J):=","
  50. 0900           J:+1
  51. 0910           C:=1
  52. 0920         ┼╬─╔╞ 
  53. 0930       ┼╬─╔╞ 
  54. 0940       FMT$(LF-J):=NBR$(I)
  55. 0950       ╔╞ NBR$(I)="." ╘╚┼╬ S:=1
  56. 0960       J:+1
  57. 0970     ┼╬─╞╧╥ I
  58. 0980     ╞╧╥ I:=LF-J ╘╧ 1 ╙╘┼╨ -1 ─╧
  59. 0990       ╔╞ FLOAT ╘╚┼╬
  60. 1000         FMT$(I):="$"
  61. 1010         FLOAT:=╞┴╠╙┼
  62. 1020       ┼╠╙┼ 
  63. 1030         FMT$(I):=" "
  64. 1040       ┼╬─╔╞ 
  65. 1050     ┼╬─╞╧╥ I
  66. 1060     ╨╥╔╬╘ FMT$,
  67. 1070   ┼╬─╔╞ 
  68. 1080 ┼╬─╨╥╧├ PRINT'USING
  69.